Is there an easy way to run multiple trials of a loop at once through parallelization in R